program test;
// Данная программа распростроняется под GNU GPL версии 3 или более поздней
// Мультик показывает движущегося человечка, который говорит эпическую фразу

uses asciiart, CRT;
var man, hw: TAAPixelGroup;
  i: integer;

begin
// Очищаем экран
  ClrScr;
// Загружаем символы, составляющие человечка
// они хранятся в файле man.aa в виде:
// X Y Цвет Символ
  man.LoadFromFile('man.aa');
// Устанавливаем координату Y человечка
  man.Top:=3;
// Дальше движение с позиции 20 до позиции 3
  for i:=20 downto 3 do
    begin
      // Устанавливаем координату X
      man.Left:=i;
      // Делаем задержку
      Delay(250);
      // и перерисовываем человечка
      ClrScr;
      man.Draw;
    end;
// Еще задержка
  Delay(500);
// Так же загружаем "речевой пузырек"
  hw.LoadFromFile('helloworld.aa');
// Устанавливаем его координаты
  hw.left:=8;
  hw.top:=3;
// И отрисовываем!
  hw.Draw;
 readln;
end.